0 REM *** WRITTEN BY MALCOLM LOWE ***
4 S$=" T H E    C O M M O D O R E   S H O W  [146] ":PRINT"[147]":C$="[159][156][154][158][129]"
5 POKE53280,0:POKE53281,0:O=53248:P=O+1:R=137:S=53:POKE808,225:PRINTCHR$(8)
10 PRINTCHR$(142):FORY=0TO6STEP2:POKEO+Y,R+Y*8:POKEP+Y,S+Y*7:POKEO+39+Y/2,Y+6:NEXT
11 R$="*******************"
12 T$(2)=" COMMODORE  SPECIFIC "
14 T$(4)=" SALES TO THE PUBLIC "
16 T$(5)=" SOFTWARE AND HARDWARE "
18 T$(6)=" BIG CASH SAVINGS "
20 T$(7)=" SPEAKERS EVERY HOUR "
22 T$(8)=" DEMONSTRATIONS "
24 T$(3)="  'COMMODORE'  IN ATTENDANCE "
26 T$(1)=" HOME COMPUTER SHOW "
30 GOSUB40:GOTO220
40 POKEO+21,15:FORJ=0TO3:K=J+13:IFK>14THENK=J+12
50 POKE2040+J,K:NEXT:IFPEEK(832)<>240THENLOAD"W1",8,1
140 PRINT"":U$="[162][162][162][162][162][162][162][162][162][162][162][162][162]"
150 PRINT" [159]"U$:PRINT"  WEST  COAST [146]":PRINT" [154]  COMMODORE  ":PRINT"  ASSOCIATION "
160 PRINT" "U$:PRINT"[145]"TAB(23)" P.O.BOX 210310 [146]":PRINT,,"   [153] SAN FRANCISCO  "
170 PRINT,,"   [155] CA 94121       [146]":PRINT,,"    (415) 982 1040 ":PRINT
180 PRINTTAB(16)"[151]PRESENTS":PRINT:PRINT" "LEFT$(T$,38):PRINT:PRINTTAB(17)"[152]AT THE
190 [153]:[153]"    CATHEDRAL HILL CONVENTION CENTER":[153]:[153],"   FORSAN  FRANCISCO
200 PRINT:PRINTTAB(19)"ON":PRINT:PRINTTAB(7)"[158]FEBRUARY 9TH AND 10TH 1985":PRINT
210 PRINT"[149]  FOR PRINTOUT - [155]F1[149] : FOR MENU - [155]F3":RETURN
220 FORK=1TO8:LT=(36-LEN(T$(K)))/2
225 T$=S$+""+MID$(C$,K,1)+LEFT$(R$,LT)+T$(K)+RIGHT$(R$,LT)
230 A=1:B=39:C=2:CLOSE4
240 FORH=0TO1
250 FORI=ATOBSTEPC:X=RND(TI)*14+2
270 PRINT""TAB(20-I/2)"[198]"TAB(39-I/2)"[198]":POKEP,S+I/1.8:POKEO,R+I/1.6
275 PRINT""MID$(T$,I,40):POKE646,X-1:PRINTTAB(20-I/2)"[196]";
280 POKE646,X:PRINTTAB(39-I/2)"[196]":POKEP+2,S+14+I/6:POKEO+2,R+16+I/4
290 POKEP+4,S+28-I/6:POKEO+4,R+32-I/4:GETA$:IFA$<>""THEN400
300 POKEP+6,S+42-I/1.8:POKEO+6,R+48-I/1.6
310 NEXT:FORI=1TO750:NEXT
320 IFA=1THENA=39:B=1:C=-2:NEXT
330 IFA=39THENA=1:B=39:C=2:NEXT
340 NEXT
350 GOTO220
400 J=ASC(A$)-133:IFJ<0ORJ>1THENGOTO300
410 ONJGOTO430
420 FORY=0TO6STEP2:POKEO+Y,R+Y*8:POKEP+Y,S+Y*7:NEXT:POKE214,10:PRINT:PRINT""S$
425 PRINT:OPEN4,4:CMD4:GOSUB150:GOTO440
430 POKE808,237:POKE53269,0:LOAD"MENU",8
440 FORI=1TO8:PRINT"-"T$(I):NEXT:RUN